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60 * * AN OVERLAP ERROFJ CAUSES THE PHASE TO EXIT 

61 * AFTfcR StlTTI?>lG A WORu IN PCOM, PROCFSSIVG 
6^ ♦ OF THE STRIMG IS TEkMIMaTED, 

63 * * ERRORS DETECTED ARE NUHBEKS 23, 5Q, 

64 *TABLES-WORK AREAS 

6S> * ♦ THE STATEMENiT STRINt,, THE SYMBOL TaPLE 

66 * AND THE FCO^ AREA,, 

67 *ATTRIBUTES- N0\|E, 

68 *N0TES- THE SWITCHES USED JN pHASE 6 FOLLOW, I' 

69 * NON-ZERO, T-IE SWITCH IS TrAnSFER = T, IF ZER:), 

70 ♦ THE SWITCH IS NORHAL=N, 

71 * SWl - DECIMAL PO|Nf 

72 * Ns DFiCIMAL POINT ALLOWABLE 

73 * SW2 - E IN EXPONENT 

74 # Ns E IN EXPONENT ALLOWABLt- 

75 ♦ SW3 - SIGN 

76 * T= SIGN ALLQWABLfc 

77 * SW4 - SIQN 

78 * Ts SIGN WAS HINU^s 

79 • SW5 - NO'I-ZERO chahac;teR 

so * T= NON-ZERO CHARACTER ENCOUNTERED 

Rl * SW6 - STRING CLOSURE 

R2 • T= STRING CLOSURt rEuUIRED 

83 * SW12- CHARACTER BUFFtR 

84 ♦ Ts BUFFER EMPTY 

85 * SW14- FIRST OF TWO WuRdS 

86 * Ns WORKING ON FJHST UF TWO WORDS 

87 * SW16- FIRST CONSTANT 

aa * Ns FIRST CONST AN] QP STATEMENT 

_89. AaS X" r ' ^-*''' ' 

~90 * ■ SYSTEM AND FORTRAN EQUATES 
■*ir' MEMRY ECU Tt^^-prr^'?'- MAXIMUM CORE SIZE 

9? PHSIZ EOU 4*320 MAXiMyM PHASE SIZE 

93 OVERL EQU HFMRY-PHSIZ pHASfcS 2-29 START 

94 FCOM EQU OVERL-22 FORiRaN COHM, TABLE 

95 PHNTB EQU FC0M^56 PHAbE TaBLE 

96 ROLRX EQU PHNTB-50 INTtRpHASfc CALL 

97 * FORTRAN COMMUNICATION AREA 

98 ^ FORTRAN UOmMUN ICAT I ON AREA 

99 ORG FCOM 

100 SOPS BSS 1 START Ol- STRING 

101 EOFS BSS 1 END OF STRING 

102 SOFST BSS 1 START 0^ sYflHOL TABLE 

103 SOFNS BSS 1 STAkT 0^ nON'ST^NT NUMBERS 

104 SOFXT RSS 1 STAhT OF SUBSC TEMPS 

105 SOFGT BSS 1 STAhT OF GENERATED TEMPS 

106 EOFST BSS 1 ENDOF SYMBOL TABLE 

107 COMON BSS 1 "^^^1 AVAILABLE COMMON 

108 CSIZE BSS 1 SiZt QP COMMON 
1Q9 ERROR BSS 1 OVERLAP ERROR 

110 FNAME BSS 1 PROuRaM NaME 

111 BSS 1 * 

U2 SORF BSS 1 SUBK (-) UR FUNCTION ( + > 

113 CCWD BSS 1 CONTROL CARD WORD 

114 * BIT 15 TRANSFER TRACE 
Ij^ * BIT 14 ARITHMETIC TRACE 
136 * BIT 13 EXTtNDEU PRECISION 
317 * BIT 12 List SYMBOL TABLE 
fie * BIT 11 LIST SUBPROGRAM NAMES 
3'l9 * BIT 10 LIST SOURCE PROGRAH 
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240 S U TT POINTER BfcFQKE COLLECT =^EA 

241 BSC L vlRR*+- BR 10 StT IN'-'ALID CON ERRO 

242 Z33 MnX 1 -1 MOVt pT BACK TO QPERATOR; 

243 LD 10 IF SIGN PUSHIDfJ Is ZfcRD 

244 BSC * si^ip TO Save sthnt pointer 

245 MDX *-4 BR TO MUVfc BACK POINTER 

246 STX LI TT SAVt STMNT pT AT 0P|^,RATDR 

247 * r^ITlALIZE fo COLLECT »^EAL COfiSTA^jT 

248 SLA 16 

249 LDX 2 5 COUNTERS S> 

2^0 AMP STO L? JANS'5 ZtRU FIVE WORDS OF BUFF=R 

2^1 MDX 2 -1 DECK COUNTER 

2R2 MDX AiP OR iO CONTINUE CLEARING 

2^3 LDX 2 5 COUNTERS 5 

2P4 STO L? SW5-5 ZERU S^l TO SW5 

2'^5 HDX ? -1 DECK COUNTER 

256 HDX *-4 BR iO CONTINUE CLEARING SW 

2^^? STO L SW12 ZERU SWlTcH 12 

2P8 MDX 1 1 ^OVfc sTmNT POINTER 

259 STO OrNT ZERU C^AR COUNT 

260 STO L S^'14 ZERU F'iKST OF 2 WDS SWITCH 

261 STO L BIN ZERU BIN 

262 RCl BSI L OgT 8R TO GtT NEXT ELEMENT 

263 S L JGONl LEAVES UlUlT ONLY 

264 STO X SAVt CHaRACTLR 

265 BSC L RC7,+- BR iF ZbRU 

266 RSC L Sa'1T,+ 3R nOT A DIGIT 

267 S JC0N2 DECIMAL NINE 

268 RSC L RC5,* BR iF niGjT 

269 SWIT LD SWl DECiMAL POlMT ALLOWABLE SW 

270 BSC L F!C2,Z BR iF DfcCML n NOT ALLO-^ED 

271 LD X CHAKACTtR 

272 S JcnN3 DECIMAL PQiNT CONSTANT 

273 BSC L Ra6,+- BR iF DfcClHAL POINT 
?74 PC2 LD S'2 

275 ' BSC L RC3,Z 8K iF E NUT ALLOWABLE 

276 LD X CHAKACTfcR 

277 S JC0N4 ALPHABETIC E CONSTANT 

278 BSC L Rn9,f- BK iF ALPHA E 

279 RC3 LD 3^13 

280 BSC L RCIO1+- BR IF SlGN NUT ALLOWABLE; 
231 LD X CHAHAQTtR 

282 S JC0N5 PllUb SIUN CONSTANT 

283 BSC L RC4,*- BR iF PLUS SIGN 

284 S UC0N6 MINUS SIGN CONSTANT 

285 BSC L RClOiZ BR iF SjGN NOT MINUS 

286 STX SM4 SET SW4 ONi SIGN WaS HnUS 
2R7 RC4 STO ' SW3 SET SW3= SIGN NOT ALLOW=0 

288 HDX RCl BR lO GtT NEXT CHARACTER 

289 * CONSTANTS AND'WqRk AREA 

290 X DC CHAHACTfcR TEMPORARY 

291 JCONl DC /u030 HIGH 2 BITS CONSTANT 

292 JC0N2 DC 9 DECiMAL NINE CONSTANT 

293 JC0N3 DC /0O0B-/003O' UEClMAL POINT CONSTANT 

294 JC0N4 DC /O00i>-/CQ30 aLRHa fc CONSTANT 

295 JC0N5 DC /000E-/D030 PLUS SlGN COfJSTANT 

296 JGQN6 DC /0020-/OOQE MINUS SIGN CONSTANT 

297 JC0N7 DC inO DECIMAL IQO CONSTANT 
2*58 JC0N8 DC 192 DECIMAL 192 CONSTANT 
299 JC0N9 DC 1 DECiMAL 1 COMSTANT 
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333 


JBR 


LDX 
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SET'UP ERROR 23 
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SET ERROR NUMBt'P 
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LD 
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SRA 
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EXTHACT STMfiT WORD COUNT 
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L 


IDSAV 
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340 




STO 




* + l 




341 




LDX 


L2 





NEXl sTMNT AUDH 


342 




LD 
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EQFS 
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343 
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NEXT STMNT AUDR 


344 




STO 




♦4.1 




345 




LDX 


L3 





ranuE 


346 




MDX 
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NUMBER OF WpS TO HOVE 


347 




LD 
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STMNT ID WORD 


348 




AMD 




JC0N9 


TURN ON EKROH INDICATORS 


349 




OR 




ERiD 




3F0 




STO 


1 





restore iu word 


Z5X 




EOR 




JC0N9 




352 




BSC 
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*- + 3,E 


BR IF ODD 


353 




A 




LGONl 




354 




STO 


1 





STOKE IN ID WORD 


355 




MDX 


1 


1 


INCKEmENT STMNT POIfiTER 


35 6 




LD 




ERRNO 


ERROR MUMBEP 


357 




STO 


1 


1 


REPLACE STMNT I'lTH F-RRO^ N 


358 


RC6A 


LD 


2 





NEXT WD TO HOVE 


359 




STO 


1 


2 


CLObE UP STRING 
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360 MDX 2 1 INCH NEXT Wp TD HOVt: ADOR 

361 MOX 1 1 l^CH aDUR to STORE NEXT WD 

362 HDX 3 -1 DECK wOkDS TO MOVE COUNTER 

363 MDX RC6A fiR TO CONTINUE CLOSING 

364 MDX 1 1 INCK aOUR TO STORE IIEXT WD 

365 STX Ul EorS NEW END OF STRING ADDRESS 

366 BSC L MOVE BR lO EXAMINE NEXT STMNT' 

367 PC7 LD SW2 E'IN EXPONENT SWITCH 

368 BSC L RC6,Z 8R iF E NOT ALLOWABLE 

36Q LD S;I5 NON-ZERO CHARACTER SWITCH 

370 BSC L RC5A,Z 8K iF NUNsZERO TO MPY By 1 

371 MDX RC58 BR iF TtST SWITCH 1 

372 RC8 MDX L S,J1,X TURN uN SWITCH 1 

373 SLA 16 CLEAR ACCUMULATOR 

374 STO DPC ZERU DllilT COUNTER 

375 BSC L RCl 8R TO GhT NEXT CHARACTER 

376 PC9 HDX L S.!2,l SET'Sw 2» E NQT ALLOWABLE 

377 MDX L Sw3,l SET SW 15, SIGN ALLQWABLS 

378 MDX L SW1,1 SET Sw 1 s NO DECML P0IN|T 

379 SLA 16 CLEAR ACCUMULATOR 

380 STO TILL ZERU TILL 

381 STO EXP Z£RO EXPONENT 

382 RSC L PCI BR TO GET NEXT CHARACTER 

383 * CHECK FOR VALiD CONSTANT 

384 RCIO LD 1 -1 STMNT lU WORD 

385 BSC L J:-^R,*Z BR iP NbG TO SET ERROR 23 
3fi6 LD GCNT CONSTANT CHARACTER COUNT 

387 S L T,iO DECIMAL TWO 

388 BSC L ^m,* 8R iF LESS T^AN 3 TO ER^OP 

389 STX LI S SAVE {NUEX REGISTER 1 

390 LD S.'5 NON-ZE^U SWITCH 

391 BSC L Rni9,+- 8« lO CHECK PRECISION 
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394 LD S.'2 E"IN EXPONENT ALLOWABLE SW 

305 BSC L RC13»+- BR IF E ALLOWABLE 

306 LD TILL NO, OF EXPONENT CHApACTrRS 
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4B9 « CCIMBINE EXTENUED CONSTANT 
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491 SRT 1 VACATE SIGN POSITlOfl 

492 BSC Z MAKt SlUN PL^S 

493 EOR HASK 

494 STD JANS-3 RES I ORE MANTISSA PORTION! 

495 LD RIH BINARY EXPONENT 

496 OR MASK REAL CONSTANT INDICATOR 

497 STO JANS^i STOKE EXPgNENT-ID WORD 

498 HDX RC21 8R lO CHECK DATA STHNT SW 

499 * COMBINE STANDARD CONSTANT 

500 RC20 LDD JANS-3 "TWO MoST SIGNIFICANT WO^PS 

501 SRT 1 VACATE SiCiN POSITION 

502 BSC Z HAKt SlUN PLt^S 

503 EOR MASK 

5P4 RTE 16 LEAbT SIGNIFICANT WD TO AC 

505 AND MASKl CJT OFF LOWEH FIGHT BITS; 

506 OR BIN EXPUNENT iNT" LOW 8 BITS 

507 RTE 16 ^tJSi SIGNIFICANT WD TO ACC 

508 STD JANS-3 COMPLETED STANDARD CONSTAN 

509 LD MASK REAL CONSTANT IflDICATOR 

510 STO JANS'i SYMBOL TABLE ID WORD 
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512 RCSl LD S>'7 DATA STmNT SWITCH 

513 BSC L RC22iZ 8R TO OPEN STRING 
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516 HDX HACK BR io CHECK END OF SEARCH 
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519 BSC Z SKIP NEXT IF E^UAL 

520 HDX EAT 8K nOT fcOUAL - CONTINUE 

521 LD 3 2 SECUND HALF UF TaBLF ENTRY 

522 S JaNS-2 SECUND HALF OF CONSTANT 

523 BSC L EaT^Z BR NOT EQUAL " CONTINUE 
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525 S JANS-l CHK LOW 8 EQUAL (ExPONEMT 

526 SLA a IF tXTENDfcD PRECISION), 

527 BSC L RC22,+- BR \? CUNSTaNT FOUND 

528 EAT MdX 3 -3 D^CK jABLfc SEAHCH ADDRESS 
5?9 HACK 3TX 3 SAVE INDEX REGISTER 3 TEMPORARY 

530 LD SAVE CURkEnT SEARCH ADDRESS 

531 S L EDFST ENDOF SYMBOL TABLE ADDLES 

532 BSC Z SKIP NEXT IF END OF SEARCH 

533 MDX LOOP BR TO CONTINUE SEARCH 
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536 STO 3 SYMBOL TABLE ID WORD 

537 LD JANS-2 LEAST SiGNlFlCAHT HALF :0N 
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DECK ENU gF SiTh'ING ADDRESS 

DECK START OF' SLIBSC TEM3S 

DECK START GENERATED TEHPS 

SYMbOL TABLE OVERLAP 

END OF bYMROL TABLE ADDLES 

TWO 

END OF bTHiNO ADDRESS 

BK iF NU ERROR 

SET OvEHLAP hRHOR Od 

r PHASE 

"CALL DOWN NEXT PNASK 
NEXT PHASE M"MHER 
MAKE aDUR BOUNDARY t::VEM 

ID Of next phase 

LOAUEH TABLE FUR NEXT PHAS 
AND WORK AREA 

STAIEmEnT POINTER TEHPO^AR 
MAKE aOuR boundary EVEN 
SIGN BIT CONSTANT 
EXPuNENf BIT MASK 
EXPUNENT LIMIT CONSTANT 
SYMBOL TABLE MULTIPLE CDN 
BINARY EXPONf:NT 
FIVE 

wdRu 

REAL 

CONSTANT 
BUFFER 

STMNT POINTED TEMPORARY 
OPEN STRING bWlTCH 
INDEX REGISTER 3 TEMPORARY 
OPEN STRING 
CURkEnT STMNT POINTER 

INCH STMNT POINTER 
DATA STMNT SWITCH 
BR JF NUT DATA STMNT 



FOH 5 OR 6 
ON WHETHER 

IS extendf;d 



OR:. 



ADJUST IT FOH 5 OR 6 WO^DS 

DEPENDING 

PREUISIUN 

standaRu, 

inch one more for extended 

CUHkEnT STRING POINTER 
NEXT STmNT AODP 
BR rO OPEN STRING If PLJS 
CORhEnT STMNT POINTER 
DATA STMNT SWITCH 
8R IF DATA STHMT 
^Nt AND UPERAIOH ON STRINJG 

operatok 

stoke on string 

REGiSTEH 3 T') TEMPORARY 
START 0(- SYMBOL TABLE ADDR 
cOrkEnT SYMBOL TBL ADDRESS 
FORM NORMAL DIVIDENP 
THREE 

SYMBOL TABLE POINTER 
STOkE on STRING 
MOVt STMNT POINTER 



SEITE 11 



600 * CHECK ir STATtME^I'l CLOyURE REQUIRED 

601 RC22B LD TT CJKHENT STMMT POINTf'R 

602 S S NEX I STMNJT AODHESS 

603 BSC I REDOS,- BR iF Nu CLOSURE REQMIRSD 

604 * CLOSt UP STATtMENT 

605 STO MUM8 NUMbER UF WOHDS TO CLOS= 

606 WUMM LDX 12 S ADDK FlHST WO AfTER C3AP 
60 7 LD 2 -I NtXl wD TU MaVE: BACK 

608 S SEMIC SEMiCOLUN 

609 BSC L QUIT,*' BR TO END CLOSURE IV ZE^O 

610 LD 2 -1 ^PVt WOKD TO CLOSE STMNT 

611 STO 1 

61? HDX 11 INCH ijTMNT POINTER 

613 HDX ? 1 I^CH cLUSfc POINTER 

614 MDX NJHM+2 8R TO CONTINUE CLOSING 

615 DUTT A SEMIC SEMiCOLUN 

616 STO 1 MOVt LAST WORD 

617 MDX L S:!6,l SET STRlNQ CLOSURE SW OM 

618 LD CMT ADJUST bTMNT WORD COUNT 

619 S NUMB BY I HE AMyUNT Op CLOSURE' 

620 STO CMT AND'ReSTOHE, 

621 ♦ rUTlALIZE PO INTER 

622 REDOS LDX il TT CURkEnT STMNT FOlNTfR 

623 MDX 1 -1 

62A STX 1 TT SAVfc iN TEMPORARY 

6?5 MDX L S,il6#l SET SWl6 NOT FIRST CONSTAN 

626 BSC L Z3 BR 10 LOOK FOR OPERATOR 

627 * OPEN STATEMENT 

628 OPEN LDX II EOFS END OF bTKiNO ADDRESS 

629 LDX 12 EOFS 

630 STO **1 NUMbER UF WOHDS TO OPEN 

631 MDX L2 ♦-♦ INCH BY NO. ^F WDS TO O^EN 

632 OPAMT EQU *-1 LABEL FOR ADDR LAST COHMAN 

633 STX L? EQFS NEW END OF STRING ADDRESS 
6:^4 LD L EQPS 

63*) S TT CURkEnT STMNT POINTER 

636 STO ^+1 NUMbER UF WORDS TO MOVE 

637 LDX L3 *-* 

638 MDX 3 2 

639 OPENL LD 1 "^^Vt STRING TQ OPEN 

640 STO 2 

641 HDX 1 -1 DECK MOVE PROM ADDR 

642 MDX 2 -1 DECK MOVE TO ADDR 

643 HDX 3 -1 OiCK NO, OF WDS TO HOVE 

644 MDX OPENL BR lO CONTINUE OPENING 

645 LD I IDSAV STMnT lU WORD 

646 SRT 2 

647 A OPAMT NO, WyS ADDED TO STf'NT 

648 SLT 2 

649 STO I I')SAV UPDATED STMNT ID WORD 
6f^0 • CHECK FOR OVEkLaP ERROR 

6S1 LD L EOFS END OF bTKlNK ADDRESS 

6f52 S L EnFST END OF SYMBOL TABLE 

633 BSC L RC22A,+ BR iF NU OVERLAP ERROR 

654 MDX L ERROR, 1 SET OVEhlaP ERROR ON 

655 BSC L OJT 8K TO READ NEXT PHASE 

656 * CHECK PRECISION 01- cONSTAriT 

657 DATA LD L CCWD CONTROL CARD WORD 

658 SLA 13 PRECISION BJT TO SIGN P3S 

659 BSC L DATA!,- 8K iF STANDARD PRECISION! 
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FIRbT HALF QF NEXT 2 WD 

TEMPORAKY 

MOVE POINTER 

CHAKACTtR BUFFER 

EXTRACT NEXT CHARACTER 

8F? JF NU CHAHACTER 

CHAKACTfcR BUFFLR 

HIGH WORD 

SHI^T OrF HIUH CHARACTER, 

RESTORE "TO BUFf-ER 

HIGH WORD 

EXTkACT NEXT CHARACTER 

RIGHT JUSTIFV CHARACTER 

RElTuRN WITH CHAR IN ACC 

MOVfc STmNT POINTER 

BR TO RETURN 

DECK cHaR POINTER 

BK to GET NEXT CHAR IF ANY 

MOVE POINTER 

FJRS>T OF 2 WORD SWITCH 

BR \F WURKING OH FIRST OF 

DECK STMNT POINTER 

CLEAR ACC 

SET SW14 TO FIRST OF TWO 

SET SW12 NO HDS IN BUFFER 

BR TO SET CHAR POINTER s2 

BACK [)P PT TO OPERATOR 

BR TO BACK UP POINTER 

SET CHAR PT =3 

SET SW14 TO SECOND OF T-^0 

BR TO GET NEXT CHAR IF ANY 

to'MULTIPLY 5 HORD 
Y"1u A^JD ADD CONTENT OF AC 
RETURN ADDRESS 
NJmSER TO ADD TO PRODUCT 
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780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 

795 



UDX 

UD 

M 

BSC 

A 

AD 

STO 

SIT 

STO 

MDX 

MDX 

BSC 

8SS 
BSS 
END 



NO, wds to hpy counter 

NEXT LEAST SIGNIFICANT ^OR 

MPY'BY 10 

SKIP NEXT IF PLUS OR ZE=?0 

ADD"1Q 

ADD MqST HSLf^ LAST PRODJCT 

STOKE HOST SIGNIFICANT 16 

LEA&T SIGNIFICANT 16 BITS 

RESlORE CONSTANT 

DECK COUNTER 

BR TO CONTINUE MPY 

RETURN 
EJD OF PHASE 06 
5n PATUH AREA 
OV'ERL-**320*3' PHASE"Q6 PATCH AREA 
START 



2 5 

1,2 JAMS" 5 
J'^7 

+ Z 
J'!7 

Jcn2a 

JC020*1 
16 

U2 JANS-5 
2 -1 

M:JLT*3 
I MJUT 



